10 KEYOFF:COLOR13,1,1:CLS:X=5:Y=5:D=0:VI=5:VP=0:DEFINTR:RA=0:RB=0:R0=0:R1=0:R2=0:R3=0:FA=0:B=0:L=0:SCREEN1
20 GOSUB1310:GOSUB1400:GOSUB1400:GOSUB1400:GOSUB1340:GOSUB1400:GOSUB30:GOTO90
30 REM  press space 
40 A$="x":A$=INKEY$:IFA$<>" "THENGOTO40
50 RETURN
60 REM  LIMPIA SCROLL 
70 FORK=0TO23:PRINT:NEXTK
80 RETURN
90 REM  CLAVE 
100 GOSUB60:LOCATE8,7:PRINT"Introduce la":PRINT:PRINT"            ":PRINT"             W":PRINT"             ":PRINT:PRINT"     XWWWWWWWWWWWWWWWWWY":PRINT"     V                ?V"
110 PRINT"     ZWWWWWWWWWWWWWWWWW[":LOCATE6,14:INPUT RESP$
120 IF RESP$="yosoylareina  ?V" THEN PLAY"e9a5":LOCATE7,18:PRINT"Sigamos con ...":GOSUB30:ELSE PLAY"v12c9":CLS:GOTO100
130 REM  HUMPTY DUMPTY 
140 GOSUB60:COLOR15,1:LOCATE6,11:PRINT" ALICIA REINA ":GOSUB30:GOSUB60:LOCATE0,0:COLOR10,1:PRINT"Y se produjo un gran silencioen el momento que Alicia     entro.":PRINT"Cruzo la sala hasta que llegoa la cabecera de la mesa.Una"
150 PRINT"vez alli se sento en la sillalibre que habia entre las 2  Reinas ya sentadas y vio la  mesa con hasta 50 comensales de todo tipo:animales,pajarosy hasta flores.":PRINT"WTe has perdio la sopa y el  pescadoW le dijo la REINA":GOTO210
160 REM  RESTA VIDA 
170 VI=VI-1:PLAY"c9":IFVI<1THENGOSUB60:GOTO180:ELSE RETURN
180 REM  DREAM OVER 
190 PRINT:PRINT:PRINT:PRINT"            ":PRINT"               ":PRINT"             ":PRINT"                 ":PRINT"              "
200 PRINT:PRINT"           O V E R":PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PLAY"v12bafbafagr5agrbafbafba3rgfre5re5rd1","v12cdcdcdcdr5cdrcdcdcdef3rbara6ra6ra1":GOSUB30:RUN
210 PRINT"ROJAW.Que traigan el asado!  Los camareros pusieron delan-te de Alicia una pata de cor-dero,pero nunca lo habia co- mido y esta dubitativa.      WTe veo timida.Os presentare.Pata--Alicia;Alicia--Pata.   Entonces la pata de cordero"
220 PRINT"se levanto del plato,hizo unareverencia y volvio a Este.":GOSUB30:PRINT"WQuieren una tajadaWpregunto Alicia a las Reinas cogiendo un cuchillo.":PRINT"WNo creo que cortar a alguienque te acaban de presentar   sea lo mas adecuadoW dijo la"
230 PRINT"REINA ROJAW.Que se lleven el asado!":PRINT"WMejor no me presente al pu- din o no cenare nada.Quieren un poco?":PRINT"WPudin--Alicia;Alicia--Pudin.Que se lleven el Pudin!.     Alicia quiso probar su auto- ridad como Reina y venciendo"
240 PRINT"su timided ordeno:":PRINT"WQue traigan el pudin!W cor- tando una rebanada y dandose-la a la REINA ROJA cuando lo trajeron de nuevo.":PRINT"WQue valor! Y si te cortara  yo a ti un pedazo?Wse quejo  el Pudin.":GOSUB30
250 PRINT"Alicia no supo que decir. Fi-nalmente se dirigio a la REI-NA ROJA:":PRINT"WDurante este dia he oido mu-chas poesias y casi todas te-nian que ver con peces de al-guna manera.Sabe usted la ra-zon?":PRINT"WRespecto a los peces, la"
260 PRINT"REINA BLANCA sabe un poema/  acertijo encantadorW le susu-rro al oido como si fuera un secreto.":PRINT"WEs ciertoWle susurro la REI-NA BLANCA en el otro oido-.  Quieres que lo recite?":PRINT"WSi,por favor.":GOSUB30
270 PRINT"La REINA BLANCA rio dulcemen-te y pellizco la mejilla de  Alicia. Luego empezo:":PRINT:PRINT"Primero hay que cazarlo,     Para eso no da problemas.    Segundo hay que comprarlo,   Por un penique ______.":PRINT
280 INPUT"Que palabra falta";RESP$:IFRESP$<>"apenas"THENGOSUB160:PRINT"\ No tiene punch.":GOTO280:ELSEPLAY"e9a5":PRINT"B Bien dicho!":PRINT
290 PRINT"Ahora cocinalo,":PRINT"No tomara mas de un minuto,  Y emplatalo,":PRINT"En su plato ________.":PRINT
300 INPUT"Que palabra falta";RESP$:IFRESP$<>"diminuto"THENGOSUB160:PRINT"\ Umm... No. Pista:platito.":GOTO300:ELSEPLAY"e9a5":PRINT"B Me gusta!":PRINT
310 PRINT"Traelo enseguida,":PRINT"Dejalo en la mesa.":PRINT"Abre la tapa de arriba,":PRINT"Si eres capaz de tal ______.":PRINT
320 INPUT"Que palabra falta";RESP$:IFRESP$<>"proeza"THENGOSUB160:PRINT"\ No,No y No. Pista: un gran logro.":GOTO320:ELSEPLAY"e9a5":PRINT"B Me gusta!":PRINT
330 PRINT"Si consigues su apertura,    Te debes de anticipar,":PRINT"Cometela con premura,":PRINT"O la Morsa se la va a ______."
340 INPUT"Que palabra falta";RESP$:IFRESP$<>"zampar"ANDRESP$<>"tragar"THENGOSUB160:PRINT"\ No me transmite nada.":GOTO340:ELSEPLAY"e9a5":PRINT"B Que finalazo!":PRINT
350 PRINT"WTomate un minuto para pen-  sarlo.Mientras tanto brinda- remos a tu saludW le dijo la REINA ROJA.":PRINT"Y vaya manera de brindar. Eraun caos.Algunos se echaron lacopa por encima,otros las ti-raban en la mesa y bebian lo"
360 PRINT"que caia por los bordes,y 3  canguros prefirieron lamer lasalsa del asado al vino.     WDeberias decir unas palabrasen agradecimientoW dijo la   REINA ROJA.":PRINT"WNosotras te apollaremosWdijola REINA BLANCA."
370 PRINT"WNo,si no hace falta,gracias.":PRINT"Antes de seguir,respecto del acertijo..."
380 INPUT"Cual es la respuesta";RESP$:IFRESP$<>"ostra"ANDRESP$<>"una ostra"THENGOSUB160:PRINT"\ No.Pista:comela con limon.":GOTO380:ELSEPLAY"e9a5":PRINT"B Acertaste el acertijo!":PRINT
390 PRINT"Tanto insistieron las Reinas que Alicia cedio a sus peti- ciones:":PRINT"WMe levanto para daros las   gracias...Wy mientras hablabase dio cuenta que realmente  se levantaba varios centime- tros en el aire.":PRINT"WTen cuidado!W le dijo la"
400 PRINT"REINA BLANCAW. Algo esta a   punto de pasar!":PRINT"Y asi fue.De repente los can-delabros se alargaron hasta  el techo como juncos con fue-gos artificiales en las pun- tas.Las botellas se ponian 2 platos como alas y tenedores"
410 PRINT"como patas, y volaban por la sala.":GOSUB30:PRINT"Cuando Alicia miro hacia la  silla de la REINA BLANCA vio en su lugar a la Pata de cor-dero,riendo.":PRINT"WEstoy aqui!W se ollo en la  sopera.Y Alicia vio desapa-"
420 PRINT"recer en Ella la sonriente   cara de la REINA BLANCA.     Habia invitados sentados so- bre sus platos y una sopera  grande avanzaba hacia Alicia.WYa estoy arta!Wgrito Alicia,y tirando del mantel con am- bas manos todo fue a parar alsuelo."
430 PRINT"WY respecto a ti...W fue Ali-cia a decir a la REINA ROJA, a quien consideraba culpable de todo,pero no estaba en su silla sino que habia encogidoy correteaba por la mesa per-siguiendo su propio maton.":GOSUB30:PRINT
440 PRINT"WRespecto a tiWrepitio Aliciamientras la cogia justo antesde saltar sobre una botella  que quedo en la mesaW voy a  menearte hasta convertirte enun gatito.":GOSUB30
450 REM  EL MENEO  
460 GOSUB60:COLOR15,1:LOCATE8,11:PRINT"(( EL MENEO ))":GOSUB30:GOSUB60:LOCATE0,0:COLOR3,1:LOCATE0,6:PRINT"La saco de la mesa y la agitode atras hacia delante con   ganas.":PRINT:PRINT"La REINA ROJA no opuso resis-tencia;pero su cara encogio"
470 PRINT"un poquito y sus ojos se hi- cieron grandes y verdes. Y   cuanto mas la movia se hacia mas gordita -- y redonda -- ymas suave -- y --":GOSUB30
480 REM  EL DESPERTAR 
490 GOSUB60:COLOR15,1:LOCATE6,11:PRINT"O EL DESPERTAR O":GOSUB30:GOSUB60:LOCATE0,0:COLOR7,1:LOCATE0,11:PRINT"-- Y realmente era un gatito,   despues de todo.":GOSUB30
500 REM  QUIEN LO SONYO 
510 GOSUB60:COLOR15,1:LOCATE19,10:PRINT"_":LOCATE5,11:PRINT" QUIEN LO SONO? ":GOSUB30:GOSUB60:COLOR5,1:LOCATE0,0:PRINT"WSu Majestad no deberia ron- ronear tan altoW dijo Alicia frotandose los ojosW._Me has despertado de un  sueno ma-"
520 PRINT"ravilloso.Y estuviste conmigoen El.":PRINT"Alicia fue al tablero de aje-drez y cogio la REINA ROJA.Searrodillo en la alfombra de  la chimenea y se la puso de- lante al gatito:"
530 PRINT"WConfiesa que te convertiste en Ella!":PRINT"Alicia vio 'claro' que el ga-tito no prestaba atencion pa-ra disimular que eran ciertassus sospechas.":PRINT"WSientate mas recta y piensa lo que vas a d... ronronear  mientras haces una reveren-"
540 PRINT"cia,asi ganaras tiempoW dijo cogiendo al gatito.":GOSUB30:PRINT"WY esto es por ser la REINA  ROJAWy le dio un beso.":PRINT"WY Tu,Copo de NieveW dijo    Alicia mirando a su gatito   blancoW,sabe DINA,tu Mama,queesta acicalando a la REINA"
550 PRINT"BLANCA. Quizas_es por eso queestabas desgrenada siempre.  WY DINA,tu quien eras? HUMPTYDUMTY? Umm,no se.":PRINT"WLo que seguro te gusto era  toda esa poesia sobre_pesca- dos,verdad minino? Manana en Tu desayuno te recitare"
560 PRINT"'La Morsa y el Carpintero'   para que imagines que son os-tras lo que comes.":PRINT"WY ahora,minino,lo que_impor-ta.De quien fue el sueno? Mioo del REY ROJO? El fue parte del mio, pero yo tambien fui parte del suyo.Uff, ayudame.":GOSUB30
570 PRINT"Deja de lamerte la patita queDINA ya te dejo bien limpita.Ademas,si no lo sabes Tu,que fuiste su esposa, quien lo vaa saber?":PRINT
580 PRINT"Pero el gatito negro se puso a lamerse la otra pata como  finjiendo no haber oido la   pregunta.":PRINT:INPUT"Y Tu, _de quien crees que fueel sueno";RESP$:PLAY"e9a5"
590 IFRESP$="joesg"THENPLAY"e9a5":PLAY"e9a5":PLAY"e9a5":PRINT:PRINT"ABA Secreto desbloqueado ABA":PRINT:PRINT"Utiliza en la carga 1 cuando te pidan nombre y apellidos: Jon Cortazar":PRINT:PRINT"ABA ABA A A A A A A ABA ABA":GOSUB30
600 REM  FIN del JUEGO 
610 GOSUB60:COLOR8,1
620 PRINT"    DDDDDDDDDDDDDDDDDDDDD"
630 PRINT"    D    FELICIDADES!   D"
640 PRINT"    D   HAS LLEGADO AL  D"
650 PRINT"    D   FINAL DEL JUEGO D"
660 PRINT"    D     MUY BIEN!!    D"
670 PRINT"    DDDDDDDDDDDDDDDDDDDDD"
680 PRINT:PRINT"      Tu puntuacion es:":PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
690 FOR RA=0 TO 195:LOCATE12,16:PRINTRA:BEEP:NEXT RA
700 RA=RND(-TIME)*5:LOCATE9,16
710 IF RA=0 THEN PRINT"SUPERBUENA!"
720 IF RA=1 THEN PRINT"FANTASTICA!"
730 IF RA=2 THEN PRINT"INMEJORABLE!"
740 IF RA=3 THEN PRINT"A TOPEEEE!!"
750 IF RA=4 THEN PRINT"EXCELENTE!"
760 GOSUB30:GOSUB60
770 REM  'creditos' 
780 SCREEN2:OPEN "grp:" FOR OUTPUT AS #1
790 GOSUB1400:PSET(82,85):COLOR15,1:PRINT#1,"PROGRAMACION":PRESET(107,95):COLOR7,1:PRINT#1,"joesg":GOSUB1400:GOSUB1400
800 CLS:PSET(95,85):COLOR15,1:PRINT#1,"GRAFICOS":PRESET(104,95):COLOR7,1:PRINT#1,"Mande?":GOSUB1400
810 CLS:PSET(105,85):COLOR15,1:PRINT#1,"MUSICA":PRESET(75,95):COLOR7,1:PRINT#1,"cargas 1 y 2:":PRESET(50,105):PRINT#1,"versiones nanas S.XIX":PRESET(30,115):PRINT#1,"restantes:temas originales":PRESET(93,125):PRINT#1,"M joesg M":GOSUB1430
820 CLS:PRESET(75,85):COLOR15,1:PRINT#1,"CARATULAS PNG":PRESET(80,95):COLOR7,1:PRINT#1,"JOHN TENNIEL":PRESET(104,105):PRINT#1,"(1871)":GOSUB1450
830 CLS:PRESET(10,85):COLOR15,1:PRINT#1,"ADAPTACION POESIAS Y CANCIONES":PRESET(110,95):COLOR7,1:PRINT#1,"joesg":PRESET(100,105):PRINT#1,"perdon:)":GOSUB1430
840 CLS:PRESET(83,85):COLOR2,1:PRINT#1,"joesg(c)2013":PRESET(50,95):COLOR5,1:PRINT#1,"concurso de MSX-BASIC":PRESET(68,105):COLOR9,1:PRINT#1,"www.Konamito.com":PRESET(75,125):COLOR8:PRINT#1,"jsggs@yahoo.es":GOSUB1450:GOSUB1400:GOSUB1400
850 GOSUB910:GOSUB910:GOSUB910:GOSUB910:GOSUB910:GOSUB910
860 SPRITE$(1)=CHR$(&H1C)+CHR$(&H16)+CHR$(&H1A)+CHR$(&H18)+CHR$(&H7C)+CHR$(&HFC)+CHR$(&H78)+CHR$(&H50)
870 SPRITE$(2)=CHR$(&H38)+CHR$(&H68)+CHR$(&H58)+CHR$(&H18)+CHR$(&H3E)+CHR$(&H3F)+CHR$(&H1E)+CHR$(&HA)
880 FOR RA=0 TO 65
890 PUTSPRITE0,(RA+30,RA),15,1:PUTSPRITE0,(RA+30,RA),15,1:NEXTRA
900 GOSUB910:GOTO950
910 REM ------ delay 100 --------
920 FORRB=0TO1000:NEXT RB
930 RETURN
940 REM ------ seguimos ----------
950 BEEP:PUTSPRITE0,(RA+30,RA),15,2:GOSUB910:BEEP:PUTSPRITE0,(RA+30,RA),15,1:GOSUB910
960 COLOR15,1:LINE(108,65)-(123,55)
970 PRESET(50,20):PRINT#1,"Donde se escondera PEPE?":PRESET(50,30):PRINT#1,"Aqui tampoco esta! AGGG!":PRESET(50,40):PRINT#1,"Es astuto como un Lemur.":GOSUB910:GOSUB910:GOSUB910
980 LINE(50,20)-(245,50),1,BF:PRESET(50,20):PRINT#1,"Por cierto, que sitio es":PRESET(50,30):PRINT#1,"este? Esta todo pintarra-":PRESET(50,40):PRINT#1,"jeao. Que gaurreria!":GOSUB910:GOSUB910:GOSUB910
990 LINE(50,20)-(246,50),1,BF:PRESET(50,20):PRINT#1,"Como coja a ese 'joesg'":PRESET(50,30):PRINT#1,"le voy a dar hasta en el":PRESET(50,40):PRINT#1,"DNI.Sera gamberro el..!?":GOSUB910:GOSUB910:GOSUB910
1000 LINE(50,20)-(246,50),1,BF:PRESET(50,20):PRESET(50,40):PRINT#1,"        !??!         ":GOSUB910:BEEP:PUTSPRITE0,(RA+30,RA),15,2:GOSUB910:BEEP:PUTSPRITE0,(RA+30,RA),15,1
1010 LINE(50,20)-(246,50),1,BF:PRESET(50,20):PRINT#1,"Ay mi madre! Si es que":PRESET(50,30):PRINT#1,"estoy en otro juego!!!":PRESET(50,40):PRINT#1,"Perdon!Perdon!Ya me iba..":GOSUB910:GOSUB910:GOSUB910
1020 LINE(50,20)-(246,70),1,BF:FORRB=0TO75:PUTSPRITE0,(87+RB,65-RB),15,1:NEXTRB
1030 GOTO 1030
1040 REM
1050 REM
1060 REM
1070 REM
1080 REM
1090 REM
1100 REM
1110 REM
1120 REM
1130 REM
1140 REM
1150 REM
1160 REM
1170 REM
1180 REM
1190 REM
1200 REM
1210 REM
1220 REM
1230 REM
1240 REM
1250 REM
1260 REM
1270 REM
1280 REM
1290 REM
1300 REM
1310 REM  JOESG PRESENTA 
1320 LOCATE0,7:PRINT"          ":PRINT"              ":PRINT"                ":PRINT"              ":PRINT"              ":PRINT"         ":PRINT"             PRESENTA:":PRINT:PRINT
1330 PRINT"Para el concurso de KONAMITO":PRINT"   de MSX-BASIC 2012-2013":RETURN
1340 REM  TITULO 
1350 GOSUB60:PRINT" G   .      .   <":PRINT"   :  <   oI    .   G":PRINT"    G        .  :   :":PRINT"      :":PRINT"       A Traves":PRINT"     Del Espejo":PRINT"        Y De Lo"
1360 PRINT"     Que ALICIA":PRINT"        Alli Se":PRINT"          Encontro":PRINT"  ":PRINT"     :    G    :  <  :":PRINT"      <   G         .":PRINT" .        G    .  Carga #5"
1370 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"FFFFFF Pulsa Espacio FFFFFF"
1380 RETURN
1390 REM  MUSICA TITULO 
1400 REM WWWWWW parte 1 WWWWWWWWWW
1410 PLAY"v14","v12","V10"
1420 PLAY"e8r8r8r8e8r8r8r8d8r8r8r8d8r8r8r8e8r8r8r8e8r8r8r8d8r8r8r8e8r8r8r8","a8r8r8r8a8r8r8r8g8r8r8r8g8r8r8r8g8r8r8r8a8r8r8r8c8r8r8r8d8r8r8r8":RETURN
1430 REM WWWWW parte 2 WWWWWWWWWWW
1440 PLAY"e8r8r8r8e8r8r8r8d8r8r8r8d8r8r8r8e8r8r8r8e8r8r8r8d8r8r8r8e8r8r8r8","a8r8r8r8a8r8r8r8g8r8r8r8g8r8r8r8g8r8r8r8a8r8r8r8c8r8r8r8d8r8r8r8","cdecdecdegcdeg":RETURN
1450 REM WWWWW parte 3 WWWWWWWWWWW
1460 PLAY"e8r8r8r8e8r8r8r8d8r8r8r8d8r8r8r8e8r8r8r8e8r8r8r8e8r8r8r8g8r8r8r8","a8r8r8r8a8r8r8r8g8r8r8r8g8r8r8r8g8r8r8r8a8r8r8r8c8r8r8r8d8r8r8r8","cdecdacdeacdea":RETURN
